home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Ultimate Window Set -…Games & Quality Programs
/
The Ultimate Window Set - 250 Games & Quality Programs.iso
/
win
/
pro289
/
vpok.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1993-12-16
|
110KB
|
323 lines
TableTop
Video Poker
wwwwwwwwwwwww
Form15
Command2
About
Command1
Timer1
HoldBut
HoldBut
HoldBut
HoldBut
HoldBut
BetBar
Player
Player
Player
Player
Player
DealBut
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Picture1
Label15
Label14
Label13
MS Sans Serif
Label13
MS Sans Serif
Label13
MS Sans Serif
Label13
MS Sans Serif
Label13
MS Sans Serif
Label13
MS Sans Serif
Label13
MS Sans Serif
Label13
MS Sans Serif
Shape1
Shape1
Shape1
Shape1
Shape1
Shape1
Shape1
Shape1
Shape1
Shape1
Shape1
Shape1
Shape1
Shape1
Shape1
Shape1
Shape3
Shape3
Shape3
Shape3
Shape3
Shape3
Shape3
Shape3
Shape3
Shape3
Shape3
Shape3
Shape3
Shape3
Shape3
Shape3
Label13
MS Sans Serif
Label12
Jacks Or Better
MS Sans Serif
Label11
Two Pair
MS Sans Serif
Label10
3 Of A Kind
MS Sans Serif
Label9
Straight
MS Sans Serif
Label8
Flush
MS Sans Serif
Label7
Full House
MS Sans Serif
Label6
4 Of A Kind
MS Sans Serif
Label5
Straight Flush
MS Sans Serif
Label4
Royal Flush
MS Sans Serif
ResBox
Playing
MS Sans Serif
Label3
Stake:
MS Sans Serif
Label2
MS Sans Serif
Label1
MS Sans Serif
@ Form_Load
Command1_Click
Picture1_Clickz
Index
LPosc
Picture1
Left1
Visible
Command2_Click
cardB
CardVal$
NewGame_Click
Deck<
CardNumZ
Shuffle
NewGame_KeyDowna
KeyCode
Shift$
Lebel1
Caption
Counter
CardPos
Label1
Label2k
Label3i
Label3_Click
DealBut_Click
MyHand
HisHand:
DealBut
Enabled{
HitBut)
MyCards
HisCardss
HitBut_Click
HisTotal
MyTotal
Checker
SwapO
ChangeAce
ChangedAce
StandBut
StandBut_Click
DealerHit
Dealer
Picture
Player
Pisture`
PicturePicture1
Delear
Plyero
BetButN
DealDownz
BetBut_Click
MyStake
BetBar
Value
MyBet
BetBar_Changej
Label1_ClickX
ResBox
Elsif
FixedA
HoldBut
HoldBut_Click
FontUnderlined.
FontUnderline=
FontBoldv
CSuit
CardSuit
Parse_Hand}
@ Hand_SortG
Sorted
DeckSize5
TempDeck
Flush
Straight
PairT
ofKind
ThreeKind
FourKind
Similar
SameVal
Three
TwoPair
TwpPair
FullHouse
StraightFlush
Royal
Result
Label4
Beeper8
NumTimes
Multi
Bucks
ResBox_Click
BeepTime
Timer1_Timer
Timer1
DummyR
Label10_Click
Label17_Click
Player_Click
Shape1
FillColor
DARKRED
Shape25
Shape3
FillStyle
FlashCount
FlachCount
Label13;
ForeColor
BackStyleG
Label14
Label15
ZipCount
ZipFlash
Beeper
BetBar_Change
Bet: $
Command1_Click
Command2_Click
Video Poker Version 1.0
Written By Dan Mullin
About Video Poker
DealBut_Click
Playing
Stake: $
####0.00
Redeal
Nothing
One Pair
Two Pair
Three Of A Kind!
Straight!
Flush!
Full House!!
Four Of A Kind!!
Straight Flush!!
** Royal Flush **
You Win: $
####0.00
Stake: $
####0.00
Sorry!!
Out Of Money!!
Form_Load
Stake: $
####0.00
Bet: $
Hand_Sort
HoldBut_Click
Hold!
Parse_Hand
Find A Flush
Find A Straight
Check Ace In Straight
Find A Pair, Three Of A Kind Or Four Of A Kind
Timer1_Timer